home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / perl5a1.lha / perl5alpha1 / do / reverse < prev    next >
Encoding:
Text File  |  1992-08-15  |  375 b   |  20 lines
  1. int
  2. do_reverse(arglast)
  3. int *arglast;
  4. {
  5.     STR **st = stack->ary_array;
  6.     register STR **up = &st[arglast[1]];
  7.     register STR **down = &st[arglast[2]];
  8.     register int i = arglast[2] - arglast[1];
  9.  
  10.     while (i-- > 0) {
  11.     *up++ = *down;
  12.     if (i-- > 0)
  13.         *down-- = *up;
  14.     }
  15.     i = arglast[2] - arglast[1];
  16.     Move(down+1,up,i/2,STR*);
  17.     return arglast[2] - 1;
  18. }
  19.  
  20.